﻿'Copyright © Etheral Studios 2012
'File created by Nick nick@etheralstudios.com
'File has been edited by:
'Nick nick@etheralstudios.com

Public Class NewContact

    Private Sub Save_Click(sender As System.Object, e As System.EventArgs) Handles Save.Click
        Dim myStreamWriter As System.IO.StreamWriter
        Dim values As String = FirstName.Text + "," + LastName.Text + "," + IP.Text
        myStreamWriter = System.IO.File.CreateText("C:\ProgramData\WiN\Contacts\" + FirstName.Text + LastName.Text + ".csv")
        myStreamWriter.Write(values)
        myStreamWriter.Flush()
        myStreamWriter.Dispose()
        Me.Close()
    End Sub
End Class